load("bichos.rdata")
ls()
rm(temp1,temp2,temp3)
ls()
save(anfibios, aves,mamiferos, file= "bichos01.rdata")